home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
batchut
/
sputls.zip
/
BOXTEXT.DOC
< prev
next >
Wrap
Text File
|
1991-01-06
|
4KB
|
100 lines
BoxText version 1.0 (C) SPETER SOFTWARE, January 1991.
This program will display a text string inside a box
The program was written in Borland's Turbo Pascal 5.5
Usage:
------
1: BoxText [/h]
Output a help screen.
/h (optional)
2: BoxText [/n<char>] [/s<num>] [/q] box-type x y attr message
Display "message" in a box starting at (x,y);
/n<char> (optional) sets the separator used to mark a new-line;
/s<num> (optional) sets the number of spaces before and after
the box's verticals - inside and out, the
default for <num> is 0;
/q (optional) causes quote marks at the beginning and end
of the message to NOT be deleted;
box-type either s or d (single / double);
x top-left (column) of box, in the range [1..80];
y top-left (line) of box, in the range [1..25];
attr character attribute [1..255] see SHOWATTR.EXE;
message a string of text (NOT including ANSI escape
sequences); the character ! is used to force
a new-line in the message. (/n can be used to
re-define the new-line char.)
NOTE: The length of the command line is limited to 127 characters;
therefore the message string has a limit of about 110 chars.
Examples:
---------
(1) BoxText /n$ /s2 s 40 3 23 Press any key to continue$ or ESC to abort!
/n$ re-defines the new-line character from "!" to "$"
/s2 insert 2 blanks outside and inside the box:
s use a single line box (not a double)
40 3 place the top-left of the box at column 42 of line 3
NOTE: because /s2 was specified the corner is moved 2.
23 text attribute (white on blue)
Press.. the message
Result:
1
2 <-screen line
3 (40,3) * ┌─────────────────────────────┐
4 │ Press any key to continue │
5 │ or ESC to abort! │
6 └─────────────────────────────┘
(2) BoxText /s1 d 40 3 23 " Press!any key to continue! or ESC to abort"
/s1 insert 1 blank outside and inside the box:
d use a double lined box
40 3 place the top-left of the box at column 42 of line 3
NOTE: because /s2 was specified the corner is moved 2.
23 text attribute (white on blue)
"..." the quotes are used to indent the first line of the message
Result:
1
2 <-screen line
3 (40,3) *╔═════════════════════╗
4 ║ Press ║
5 ║ any key to continue ║
6 ║ or ESC to abort ║
7 ╚═════════════════════╝
(3) BoxText /s1 s 40 3 23 " "
/s1 insert 1 blank outside and inside the box:
s use a single line box (not a double)
40 3 place the top-left of the box at column 40 of line 3
23 text attribute (white on blue)
" " the message: a single blank
Result:
1
2 <-screen line
3 (40,3) *┌───┐
4 │ │
5 └───┘
Correspondence:
---------------
Please address any comments to:
Stephen Peter
INTERNET:
steve@cad0.arch.unsw.oz.au
POST:
SPETER SOFTWARE
P.O. BOX 643
LANE COVE
NSW 2066
AUSTRALIA